home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / COMMON.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.0 KB  |  50 lines
  1.  
  2. *DEFINE COMMON VARS
  3. *
  4. *      COMMON   VAR-LIST
  5. *
  6. *      VAR-LIST:=VAR-ITEM|VAR-ITEM,VAR-LIST
  7. *      VAR-ITEM:=VAR|(VAR,SIZE)
  8. *      VAR IS VARIABLE SYMBOL
  9. *      SIZE IS NUMBER OF WORDS TO ALLOCATE
  10.  
  11. COMMON $MACRO  A1,A2,A3,A4,A5,A6,A7,A8
  12.        $IF     A1.L#=0
  13.        $COM3   :A1:
  14.        $ENDIF
  15.        $IF     A2.L#=0
  16.        $COM3   :A2:
  17.        $ENDIF
  18.        $IF     A3.L#=0
  19.        $COM3   :A3:
  20.        $ENDIF
  21.        $IF     A4.L#=0
  22.        $COM3   :A4:
  23.        $ENDIF
  24.        $IF     A5.L#=0
  25.        $COM3   :A5:
  26.        $ENDIF
  27.        $IF     A6.L#=0
  28.        $COM3   :A6:
  29.        $ENDIF
  30.        $IF     A7.L#=0
  31.        $COM3   :A7:
  32.        $ENDIF
  33.        $IF     A8.L#=0
  34.        COMMON  :A8:
  35.        $ENDIF
  36.        $END
  37.  
  38. $COM3  $MACRO   A,B
  39.        $IF  A.L#=0
  40.        $VAR Q
  41.        $ASG '''' TO Q.S
  42.        CSEG :Q::A::Q:    COMMON NAMED :A:
  43.        $IF  B.L#=0
  44. :A:    BSS  :B:          :B: WORDS NAME :A:
  45.        $ELSE
  46. :A:    BSS  1            1 WORD NAMED :A:
  47.        $ENDIF
  48.        CEND              COMMON END
  49.        $ENDIF
  50.        $END